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$! This command Breteeure ty B ert” disk which = be used 
$! on MICCOvAR@ to © boot f disks A. floating CSR's 


$ system disk t to be b 

3; P2 target device, interned ary RXx50 
$ on error then goto cleanup_error 

$ on . es then goto cleanup_ctrl 

$ say :== write sysSoutput 

Na ntermediate_ device = 

$: which device to boot? 

$ return := pyetadevice 

$ device = 

$ if Pi nes. *"" then goto chkdev 


uir/nopunc device ‘What system disk do you want to be able to boot from? "’ 
’ f$Length (device) one. 4 then goto bad_device 

: copy VMABUVAXIP.EXE to directory and rename to SCRATCHVMB.EXE 

copy sys$system:vmbuvaxip.exe scratchvmb.exe 


' create file to patch vmbuvaxip.exe, overwriting location 
: patch _device_name with the name of the system disk. 


say Apply patch to create new SYSBOOT.EXE"’ 


soenfert? deget Tgytentsle.sem open patch file 
65 = 3 temp = ' 


! 
congt®. ' ‘ 

Coy ice “ ; pe —— ' device = ‘device’ 
write datat ‘3 patch/absolute scratchvmb.exe"’ ' create — 
write dataf ' geplece/ascit” : do a replac 
write dataf ' ‘ address rot patch. device_name 
write dataf aap “ ! old = 
write dataf ‘‘exit 
write dataf device ! new = device 
write dataf ‘‘exi : 
write dataf ‘update’ ! update VMB.EXE 
write dataf ‘exit 
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! invoke patch 
$! where is the intermediate boot media mounted 
: return := get Saporaed? te 
igtgracdtote wevice = 
nes. oflevice sone chkintermediate 
>. inasresdiotes 


* dO intermediate_device - 
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“Where will the intermediate RX50 media be mounted? " 


$a 
Cares unc ok “Are you ready? “' 
if .not. then goto ask 
chhintermedia ete: 
if fSlength( ntermediate device) .ne. 4 then goto bad_device 
say 


fom intermediate device 


f f$getdvilintermediate agovice, WT then dismount/nounload ‘intermediate_device 
nitialize janterpediate. Gevice UNTERREDIATE 
mount/overzident ‘intermediate device 


Os ps 2 files the intermediate media. The first is SCRATCHVMB.EXE, 
FSvs0. SYSEXEJSYSBOOT.EXE. een the primary bootstrap 
oads the file SY Re exe vote Seo seve. ts branches 


to it. In the case of the intermediate is actually 

a vaodi tied copy of VAB which allows Beate oy hog from devi /.~ e 

floati eshte It in at finds SY T.EXE on the Ng system 

disk brenches to it. e 2nd file we piece on the intermediate 
vB is an unpatched 4M. r? eae E which prompts the console 
at boot Tine for the name o To use $s version, 


~ fi 
enter B/100 Gdeu Gnd ontar StS. EtSEREIETEROOTD ELE oe the ene 
of the boot file. 


‘create/directory int eracdtote device’ :Csy yp0.sysene) 
copy scratchvmb.exe ‘intermediate device’: sys sysexels sboot.exe 
Seclen's aeviee ‘vmbuyax lp. exe "intermediate_device’ :(sys0.sysexe]sysbootp.exe 


mom goccegsz f 


say "The media on '', intermediate_device,’’ may now be used to boot device "device 
9 0 cleanup 

i bad device name, inquire again 

device: 


a OSSteehe poo e tReet oakor 


eek 


“ee You entered an invalid device name **"’ 
to ‘return 
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error handlers 


‘ Leanp error: 


oer **ee Unexpected error - creation of intermediate RX50 media unsuccessful **"’ 
& $<Fean cleanup 
oy tee ctrl: 


say “ee Unexpected halt due to control_y - creation of intermediate RX5O media unsuccessful **" 


$! cleanup directory, dismount intermediate device 
$c Leanup: = 
$ if intermediate_device .eqs. *"' then goto delete_files 


. 
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wie device,’ MNT’) then dismount/unload ‘intermediate_device’ 
2 S-fesearch( ‘patchfile.com’’) 
nes. 


en delete aanghttle.cenze 


2 no risearen Serotenyab. 


xe 
then delete Sergtenen.ouas® 


2 oO pisearch( ‘scratchvmb. jn 


then delete scratchvmb.jnl;* 
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